home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p1.lha / ImEngV3.41p1 / ARexx / ImageFX_Import.rexx < prev    next >
OS/2 REXX Batch file  |  1996-11-15  |  1KB  |  72 lines
  1. /*
  2. ** $VER: ImageFX_Import 1.0
  3. **
  4. ** Copyright © 1996 by Simon Edwards
  5. **
  6. ** This arexx script will import the main 24bit image data in
  7. ** ImageFX into ImageEngineer. Both programs must be running at
  8. ** the same time.
  9. ** This script has been tested on ImageFX 1.5
  10. ** and requires ImageEngineer 3.0 (or higher).
  11. **
  12. */
  13.  
  14. OPTIONS RESULTS
  15. SIGNAL ON ERROR
  16. TEMP_FILE = 't:Image_from_ImageFX'
  17.  
  18. /* Main code */
  19.  
  20. IF ~SHOW(PORTS,'IMAGEFX.1') THEN DO
  21.      'REQUEST' '"Could not locate ImageFXs arexx port!"' '" OK "'
  22.     CALL ErrorOut 10
  23. END
  24.  
  25. ADDRESS "IMAGEFX.1"
  26.  
  27. SaveBufferAs ILBM '"'TEMP_FILE'"'
  28.  
  29. IF (RC ~= 0) THEN DO
  30.   ADDRESS 'IMAGEENGINEER'
  31.      'REQUEST' '"Failed to save temporary image from ImageFX!"' '" OK "'
  32.     CALL ErrorOut 10
  33. END
  34.  
  35. ADDRESS 'IMAGEENGINEER'
  36.  
  37. 'OPEN' TEMP_FILE 'COLOUR'
  38. IF (RC ~= 0) THEN DO
  39.      'REQUEST' '"Failed to load temporary image into IE!"' '" OK "'
  40.     CALL ErrorOut 10
  41. END
  42. NEW_IMAGE = RESULT
  43.  
  44. CALL Errorout 0
  45.  
  46. /* Errorout procedure */
  47.  
  48. ErrorOut:
  49.     PARSE ARG ExitCode
  50.  
  51.     IF (EXISTS( TEMP_FILE )) THEN DO
  52.       ADDRESS COMMAND "Delete >NIL:" TEMP_FILE
  53.   END
  54.   
  55.     EXIT ExitCode
  56.  
  57. /* IE's error procedure */
  58.  
  59. Error:
  60. if RC=5 then do            /* Did the user just cancel us? */
  61.     IE_TO_FRONT
  62.     LAST_ERROR
  63.     'REQUEST "'||RESULT||'"'
  64.     exit
  65. end
  66. else do
  67.     IE_TO_FRONT
  68.     LAST_ERROR
  69.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  70.     exit
  71. end
  72.